!--------------------------------------------------------
! $Id: x2y2model.shar,v 1.2 2011/05/14 21:34:35 daw Exp $
! Description:
! Author:  Murray S. Daw <daw@clemson.edu>
! Created: 
!--------------------------------------------------------


module constants
  use prec
  IMPLICIT NONE

  real(r8), parameter :: pi = 3.1415926535897932385  
  complex(r8), parameter :: ci = ( 0., 1. )

end module constants


      
